home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus Leser 15 / Amiga Plus Leser CD 15.iso / Games / Earth2140_Updates / E2140MP_060102 / English < prev    next >
Text File  |  2002-03-13  |  3KB  |  89 lines
  1. ; $VER: Earth 2140 patcher 1.2 (05.01.02)
  2.  
  3. (set #patchfile68k "eng.68k")
  4. (set #patchfilePPC "eng.ppc")
  5. (set #language "english")
  6.  
  7. (set #srcdir (cat "earth2140_MP:" #language ))
  8. (set #welcometxt (cat "Earth 2140 MP Patch, 06.01.02\n"
  9.                       "(c) 1997 by TopWare CD-Service AG\n"
  10.                       "Amiga Version (c) 2001 by e.p.i.c. interactive entertainment\n"
  11.                       "Amiga conversion done by Pagan Games\n"))
  12.  
  13. (set #wherepromt "Where do you have Earth 2140 executable installed?\n")
  14. (set #wherehelp "This is the directory where the HD part of Earth 2140 is installed and will be updated\n\n")
  15.  
  16. (set #needcd (cat "Please Insert the Earth2140_MP CD in any drive"))
  17.  
  18. (set #destneeded68k "Earth2140.exe could not be found in the selected destination dir\n File not patched")
  19. (set #srcneeded68k (cat "Earth2140_MP:" #language "/Earth2140.exe could not be found\n File not patched"))
  20.  
  21. (set #destneededPPC "Earth2140.wos.exe could not be found in the selected destination dir\n File not patched")
  22. (set #srcneededPPC (cat "Earth2140_MP:" #language "/Earth2140.wos.exe could not be found\n File not patched"))
  23.  
  24. (set #patcherror (cat "The file could not be patched, you are probably using a wrong version.\n"
  25.                       "This patch is to be used against the Earth2140 MP CD"))
  26.  
  27. (set #ok 0)
  28.  
  29. (welcome #welcometxt)
  30.  
  31. (if (< @user-level 1)
  32.   (abort "The installer can not run in novice mode")
  33. )
  34.  
  35. (askdisk (dest "Earth2140_MP") (prompt #needcd) (help #needcd))
  36.  
  37. (set #destdir
  38.   (askdir (prompt #wherepromt)
  39.           (help   (cat #wherehelp @askdir-help))
  40.           (disk)
  41.           (default @default-dest)
  42.           )
  43. )
  44. (set @default-dest #destdir)
  45.  
  46.  
  47. (if (> (exists (cat #destdir "samples")) 0) (rename (cat #destdir "samples") (tackon #destdir "samples")))
  48.  
  49. (if (= (exists (tackon #destdir "earth2140.exe")) 0)
  50.   (Message #destneeded68k (all))
  51.   (if (= (exists (tackon #srcdir "earth2140.exe")) 0)
  52.     (Message #srcneeded68k (all))
  53.     ( (set patch68k (cat "wpatch \"" (tackon #srcdir "earth2140.exe") "\" \"" (tackon #destdir "Earth2140.exe") "\" " #patchfile68k))
  54.       (working "Patching Earth2140.exe")
  55.       (set err (run patch68k))
  56.       (if (> err 0) (abort #patcherror) (set ok 1))
  57.     )
  58.   )
  59. )
  60.  
  61. (if (= (exists (tackon #destdir "earth2140.wos.exe")) 0)
  62.   (Message #destneededPPC (all))
  63.   (if (= (exists (tackon #srcdir "earth2140.wos.exe")) 0)
  64.     (Message #srcneededPPC (all))
  65.     ( (set patchPPC (cat "wpatch \"" (tackon #srcdir "earth2140.wos.exe") "\" \"" (tackon #destdir "Earth2140.wos.exe") "\" " #patchfilePPC))
  66.       (working "Patching Earth2140.wos.exe")
  67.       (set err (run patchPPC))
  68.       (if (> err 0) (abort #patcherror) (set ok 1))
  69.     )
  70.   )
  71. )
  72.  
  73. (if (= ok 1)
  74.   (copyfiles
  75.     (source "")
  76.     (dest #destdir)
  77.     (pattern "earth#?")
  78.     (files)
  79.     (infos)
  80.   )
  81.   (abort "The update could not be installed")
  82. )
  83.  
  84.  
  85.  
  86.  
  87.  
  88.  
  89.